home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / bridge / TxtPreview.rx < prev   
Encoding:
Text File  |  1999-08-18  |  1.3 KB  |  50 lines
  1. /*
  2.     PerfectPaint Script
  3.     Make texture preview
  4. */
  5.  
  6.     options results
  7.     parse ARG Path b
  8.  
  9. name="ram:script"
  10.     
  11. ADDRESS COMMAND 'List >'||name||' '||Path||' NOHEAD LFORMAT="%s"'
  12. ADDRESS COMMAND 'Sort 'name' 'name'.s'
  13.  
  14. i=0
  15. IF OPEN('listfile',name'.s') THEN DO
  16.     DO FOREVER
  17.         fline = READLN('listfile')
  18.         IF EOF('listfile') THEN BREAK
  19.         IF RIGHT(fline,5)~=".info" THEN DO
  20.             i=i+1
  21.             nom.i=fline
  22.         END
  23.     END
  24.     CALL CLOSE('listfile')
  25. END
  26.  
  27. file='T:HELP.guide'
  28. CALL OPEN(out,file,write)
  29.  
  30. CALL WRITELN(out,"@DATABASE HELP.guide")
  31. CALL WRITELN(out,'@NODE "Main" "Help"')
  32. CALL WRITELN(out,' ')
  33. CALL WRITELN(out,'   @{B}Select a Texture@{UB}')
  34. CALL WRITELN(out,' ')
  35. CALL WRITELN(out,"__________________________________________________________________________")
  36. CALL WRITELN(out,"@{FG SHINE}¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯@{FG TEXT}")
  37. do j=1 to i
  38.     data2=Path||'/'||nom.j
  39.     data='@{" '||nom.j||' "  link "'||data2||'/Main" 0}'
  40.     CALL WRITELN(out,data)
  41. end
  42. CALL WRITELN(out,"__________________________________________________________________________")
  43. CALL WRITELN(out,"@{FG SHINE}¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯@{FG TEXT}")
  44.  
  45. CALL WRITELN(out,"@ENDNODE")
  46.  
  47. CALL CLOSE(out)
  48.  
  49. ADDRESS COMMAND    'delete >nil: ram:script'
  50. ADDRESS COMMAND    'delete >nil: ram:script.s'